home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
.net (French) 1996 December
/
.net Magazine (FR) - Issue 02 - Dec 1996.iso
/
Utilpers
/
SUPERQUE
/
DATA.2
/
FILTERS
/
PSINIT
/
ZSERVER.PS
< prev
next >
Wrap
Text File
|
1996-03-22
|
2KB
|
68 lines
%!PS-Adobe-3.0
%%BeginFile: zserver.ps
%
% Copyright (c) 1995 Zenographics, Inc., Irvine, CA. All rights reserved
%
% @@@Disable /setpageparams functionality until it's fully implemented.
%
statusdict /setpageparams known {statusdict /setpageparams undef}if
% Per-job parameters. Make sure systemdict isn't readonly when we do this.
%
<</Policies <</PageSize 1>> >> setpagedevice %ignore page size errors
(zsfont1.ps)runlibfile % Can only define default fonts once the device is setup
systemdict /languagelevel psleveluseroption put % user-req'd PS level (1 or 2)
% If this is a Level 1 product & we have a b/w device, undefine cmyk operators
% to work around a bug in Pagemaker 5 which attempts to incorrectly use cmyk
% operators if available.
%
% First, reset any cmyk operators with names like "~setcmykcolor" back to normal
[ (currentblackgeneration) (currentcmkycolor) (currentundercolorremoval)
(currentcolor) (currentcolorscreen) (currentcolortransfer)
(setblackgeneration) (setcmykcolor) (setundercolorremoval)
(setcolor) (setcolorscreen) (setcolortransfer)
]
dup
{
dup length 1 add string dup 0 (~) putinterval %str1 str2
dup 1 3 index putinterval cvn %str1 name2
systemdict 1 index .knownget
{ %str1 name2 value
systemdict exch 3 index cvn exch put %str1 name2
systemdict 1 index undef
}
if
pop pop
}
forall
% If Level 1 b/w printer, set cmyk operators to have ~ as first char
systemdict /languagelevel .knownget {1 eq} {false} ifelse
{
currentdevice getdeviceprops .dicttomark
/Colors .knownget {1 eq} {true} ifelse
{
% redefine cmyk operators to have tilde (~) in front of name
dup
{
dup length 1 add string dup 0 (~) putinterval %str1 str2
dup 1 3 index putinterval cvn %str1 name2
systemdict 2 index cvn .knownget
{ %str1 name2 value
systemdict exch 2 index exch put %str1 name2
systemdict 2 index undef
}
if
pop pop
}
forall
}
if
}
if
pop